(require :rtmeus (format nil "~A/eus/common/rtmeus.l" (unix:getenv 'RTMEUSDIR)))
;;
(setq *rtm* (instance RTMeus :init "localhost"))
(setq hoge (send *rtm* :resolve-component "TimerTest0.rtc"))
(send hoge :activate)
(unix:sleep 1)
(send hoge :command :servicetest "test")
